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Catalog Number 26-1805 




This package includes six games 
recorded on three cassettes. All the 
games are programmed in LEVEL I 
BASIC so they are simple to load and 
play. Have fun! 



Contents: 

General Instructions 

Star-Pilot 

Hamurabi 

Space Taxi 

Random Tic-Tac-Toe 

Draw I, II and III 

Checkers 

Listings for the programs 
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■IE FOLLOWING PRGES LIST THE CHRNGES REQUIRED AFTER CONVERSION 
FROM LEVEL I TO LEVEL II USING THE PROGRAM CONVERSION TAPE 

HRMURABI IS NOT LISTED SINCE IT 
REQUIRES NO CHRNGES AFTER CONVERSION 



TO QUICKEN THE INITIAL DRRWING OF -"CHECKERS"" 
TRV CHANG I NO. •••'ADDING THE FOLLOWING LINES. : 



±00 GOSUB SOOb N GOSUB 2508 

3000 CLS : FOR X™0TO7 : FOR V=0TO7 : PRINT©'.'. <±28*X}+<©*V> >, 
(8H<Kt-V+l)j : NEXT V : NEXT X 

3005 fi#=STRING*<8.. 191 > 

3010 FOR X"=0TOi3 STEP2 : FOR V=0TO6 STEP2 : Z-< "C 128 ! + ! X >•+•':'. 8 *»V> ::■ : 

PRINT0Z, 8=i=:m-V+l.i : PRINT©Z, fWi : PRINT0Z+-64, A*.; : PRINT02-I- 
136, f\Si : IF Z0816 PRINT©Zi-200, fl*; : NEWT V.. X 

3012 FOR X»=112T0127 : FOR V=45T047 : SET <X, V> : NEXT V, X 

3015 PRirJT©62, " "J : RETURN 



i 



PRGE 2 
H-. * M-: m= * RDDENDUM TO CHECKERS * * * * * 

FOR N~l I"064 : GOSUB 3580 : NEXT N : N»=l : PR INT0192.- " HFlNT TO GO 

FIRST C'rVTO "; 
235 Fl::p^INKEV* : IF R*="" THEN 235 
248 PRINT0192.. " " :• : QOSOB 6880.; : IF R#="N" 

GOSUB 5OO0 
1.000 PRIN 101.84," ".: : PR I NT 0184, " FROM " .; 

1 8 1 Fl %■ = I r 4 K E V -4." : I F Fl * ■■■-- " " 1 II E N 1. :1 E L S E P R I N I 1. 8 8 .. Fl :£• i 
1O02 B*==INKEV$ : IF B*«"" THEN 1.002 ELSE PR 1 NT 0189, B*.; 
±003 F*«R*-+-B* : F«VflL<F*> : Q^l 

1005 IF ':.F'<1> i':;F>64> THEN GOSOB €.000 : GOTO 1.000 

1006 PR IN 10 184, " TO " i 

1.00 . ;; ' R#=iNKEV* : IF fl***"" THEN 1087 ELSE PR I NT 01 88, R*J 

1008 B*-INKBV* : IF 8*="" THEN 1.008 ELSE PR I NT0189, B*.; 

1009 T*«fl*i-B* : I'^VRLt; !*::• : IF <!**<&} FIND <Q^8> THEN RETURN 

1010 IF ■:: I -CI >•!••<; "f>64> THEN GOSOB 6000 : GOTO 1006 
1.200 IF '::FlBS'::T-"F> ~ : 7> OR '::RBS':'.T--F> ~9> THEN RETURN 

1.260 FOR B»7 T'O S STEP2 : G-T-i-B : IF CG>64:> OR 03+B>64 > THEN 1266 
1265 IF ■:: <R'::G >-•=!> OR '::FKG>™2> > FIND < Fl ■:! G + B > =8 > THEN F"-T : Q~0 : 

GO' I O 1.006 

1270 FOR B=-9TO 7 STEP2 : G-T + B : IF '::G<0> OR < GiBCO > THEN 1290 

1.280 IF •:; '::FKG>~1. > OR <R<G>=2>> RND < Fl CG+B > -"0 > THEN F«»T : Q : ~0 : 

GO I O 1006 

1500 U™0 : if '::FKF::0 1> OR a-K T >O0.:' THEN RETURN 

1.560 IF <:.F T=B> OR •::•:: F-T~2*B> RND <:. <fl< <F- +• T> 72 :t~«X> OR 'O-K 

•:. F+ T > 72 > «2 > > > THEN Q~-± 
O00 IF U~l H™& ELSE H~& 
2001. FOR X»UTOH STEP2 : W=16*M 
2005 FOR V-UTOFI STEF'2 : Z-6+V 
3815 P R I N "I" 6 2 , " " J : R E T U P. N 

5000 Q- -99 : FOR I-1T064 : IF (fldXl) OR <■. R < I > >2 > THEN 5050 
508O IF <RBS':.F-TX>14;> RND <flBSCF-T)018) THEN RETURN 

5087 FOR B~«--9TO-~7 STEP2 : C=T+B : IF <C<@> OR <C+©<©> THEN 5089 

5088 IF '::R<C><0> FIND <fi<C+B>=e) THEN F~T : T«C+B : GOTO 5070 

5090 FOR B-7T09 STEF'2 : C-T+B : IF 'iC>64::' OR <C-H3>64> THEN 5098 

5091 IF < R < C > CO > RND <FKC+B>™0> THEN F™T : T =<:-!■• B : GOTO 5070 

5100 R™ 99 : Jal+E : K>0 : IF <J<0> OR ■:;.J>64> THEN 5200 

5108 IF < .J-i- 8 C0 ::■ OR ■::.H-B>64> THEN 5115 

51.10 IF ':;FiC:N"B::'=0::' RND •:: R < J ><0 > THEN R~5 : K~l : L=J'h-B 

5190 C"RND<0> : IF tR>Q> OR <-::R==Q> FIND (C>. 4>> THEN Q=»R : F-I : T~L 

5250 G=I+Fl : H==I-R : IF <G>64> OR <G+R>64> THEN 5278 

5255 IF < '::i ::: l'::G>==l> OR <R'::Q>==2> > RND (FKG+RXS) THEN R=*R™8 

5260 IF •:: R •:: G > CO ::• RND CRa-O-iSO THEN R=R+4 

5265 IF a :; KH>"-2::' RND 'O-KG )=0) THEN R=R-i-4 

5270 IF <H<8> OF: <H RC0> THEN 5308 

5280 IF •::•:: Fl •:: H > ==1 ;■ OR < FK H > =2 > > FIND '::R'::H~R>=~-2> THEN R™R-8 

5 305 I F <. Fl < G > C 8 > Fl N D <.<. R < H > -■ 8 > ■+• < I==H)> T H E N R =»• R •••- 1 : G O T O 5 3 7 

5306 IF '::FKH>™--2::' RND <:; <.?i<Q>~&> OR CX~G>> THEN R^R-10 
5310 if < Fl < G >C0 > RND '::R^G-i-R>=8> THEN R™R"i~5 + K*10 

5330 IF •:: <R'::G>= ! =1> OR < R >■. G > =2 > > RND <fl<G+R><8> THEN R»"=R+4 : S-S^-4 
" ; :35 IF >::H<0> OR <H--R<:0> THEN 5350 

. 1-0 IF <<R<H>«1> OR <R<H>=2>> RND <H<H~R>»-2> THEN R»R+4 : S«S+4 
• 50 IF R>S R==S 

o280 FOR N=9T015 STEP2 : GOSUB 3508 : NEXT N : FOR X»»=0TO1 : 
FOR V==12T014 : SET <.X, V> : NEXTV : NEMTM : RETURN 



PRGE 



* :+: :■!•: :+: * SPRCE TRW I ADDENDUM * : + : * * * 

FOR THIS PROGRRM CHRNGE THE SEMICOLONS '-.:■ > TO COMMAS < ■• '.■' 
AFTER RLL PRINT© STRTEMENTS IN THE FOLLOWING LINES : 

221 
330 

340 <ADD SEMICOLONS TO THE END 

341 OF LINES 348 & 341. > 
350 

360 

GOO 

621 <RDD COMMR TO END OF LINE:.' 

680 

681 

r WW 

710 

811 CRDD COMMR TO END OF LINE> 

1020 

1100 

1120 

HDD THE FOLLOWING CHANGES : 

410 IF HC0 THEN C==C-1 : M=M-1 : GOTO 430 
30 IF V<8 THEN D*=D~1 : N==N~-1 : GOTO 441 
i-50 IF 'CC-i::' OR «::C~126> OR '::D=0> CLS : GOTO780 
455 IF (Ds»30i) RND <-:;C<R> OR <C>Fi+7> > RND (V<=2) THEN V==8 : 

GOSOB 1180 : GOTO 320 
468 IF '::P0INT'::C--2, D + i:>> OR <P0INTXC+2, D+±> > GOTO708 
478 IF <::D«30::' FIND <VC=»2> V=0 : GOTO 800 
488 IF ':;D«=31> OR CD»3©> GOTO 708 
720 INPUT "> PLRV RGRIN CV,-'N> ";Z* : IF Z*="V" F«80 : 

CLS : GOTO 2 
730 IF 2* <> "N" GOTO 720 
810 F'OR 2=R TO fl+5 : IF <.C 1=Z> OR <C+± S «Z'> GOTO 860 



:+: :.|.: :+; :|, :*: STAR P I LOT ADDENDUM •+' * * * <+< 



RDD OR CHRNGE THE FOLLOWING LINES : 

9S< DIM FK50::' 
1000 GO SUB 3899 

3898 D*=INKEV* : IF D*<>""CLS : ELSE GOTO 4080 
8020 INPUT "DO VOU WANT ANOTHER SI MULFl T ION ", R# 
J03O IF R::15<>"N" GO 10 1O0 
8510 •:; CHANGE •GOTO 8015-' TO -'GOTO 8020-'::' 

DELETE LINE 8815 



PRGE 4 



:|: :+: :+: :+: :+: TIC TFlC TOE * -V- * * M-. 

CLS : PRINI04P1, "ENTER FIRS I f J 1=1 ME " i ir.lPUT B* : J=© : U»© : V=0 
W=9 : DIM FK5S) 
98 PRINT TRB<22>, B*j "SELECT SQUARE"; : PRIN'I"§@, "?".; 
100 Q * «= I r i K E V * : I F Q * = " " 1 1- 1 E r i 100 ELS E Q = V R L. < Q ■$■ > : P R I N T 3 ■■ Q J : 

PR I NT 08.. " "J 
1.0± IF <Q>0;:' FIND O-KIO;:' Tl -I EN 1.03 
±02 PRINT "INVALID PLFlV" : FOR T=1TO1000 : NEXT T : PRINT00, " "; 

GOT OS'S 
199 FKR>=4: PRINT"".: 

GSG FOR R~1T09 : IF ••. Fl< R > = M > OR <R<R>«S> Q-R : GOTO 1000 
680 IF FKR>»S THEN 199 
4 O O O Q - < Ft ■:: M > > -• T : I F Q ~ ••- 2 Q = 7 

4 081 IF Q- 1 Q=8 

4002 IF Q™0 Q™9 

4 003 I F FK Q > = Fl < Q > — 9 : G O T O 8 5 O O 

4004 IF M~17 M=13 

4005 IF M™19 M=17 

4006 IF M=1S M=19 

7787 IF V=~l V~2 : X=2 : GOTO7810 

7788 IF V=2 V~3 : K-~& : 2=2 : GOTO 7800 

7789 IF V»3 V-4 : X=2 : GOTO 7018 
. : V90 IF V=4 V=5 : X.~S : Z™3 : GO TO 7800 
7791 IF' V~S V— 6 : X=-2 : GOTO 7010 

t-.~B : Z=4 : GOTO 7808 
X=~2 : GOTO 7018 

.908 if <i ;;: hb+c=;k> or <fhd + g==;k> or <R+E+I--X> OR <B-i EEi-H-'v'O THENZ=1 

8918 IF >::C i-FiI=:=;:0 OR <D+E+F»iK> OR <Q+H+I»M> THEN 2=*1 

8912 IF <R + B-i-C«W> OR <A-H>+-G~X> OR ^FH-E-i- 1 ~X> OR tBHEMH-X::' OR 
•:: C • • E + G » X > T H EN Z ~ 2 + 2 

8913 IF <C-*-F-"+I»M> OR <D+E+F*M> OR <Q+H+I*J<) THEN Z»Z+2 

8915 IF <<Z™2> OR ':;Z=4!:0 TFIE1M 8931 

8916 IF (Z=3) OR <Z~5i> THEN 18820 



* * * * * DRRW I.- DRRW II, DRHN III * * * * * 

DRAW I NO CHANGES 

DRRW I I - ■ RDD : 

4 DIM FKMEM.-'4--l> 

78 Fl«@ : K~INT'::MEM74--1> 

88 I=0TO'::MEM74-1> : FKI>~8 : NEXT I 

233 IF <S«e> FIND <POINT<X^ V> > IOK + 1 

630 IF POINT >■.!.• J > R CIO -■'■'. I *100h-.J ::■ ; K>K>1 

DRRW I I I -••-- -• RDD : 

1 DIM FK3000> 



Radio Jhaek 

Games Pack I 

For Level-I TRS-80 Systems 
With 4K RAM or More 





Space Taxi 

You're the pilot of a 

rocket craft. Your 

task: Fly over a 

mountain, but stay 

under a radiation 

"--—-shield, and land 

safely : 

spaceport. 

challenge for space 

pilots c f all ages! 



Hammurabi 

Your chance to rule 
a nation! Start with 
a given amount of 
assets and manage 
your "kingdom" by 
planting the right 
amount of grain, 
buying and selling 
"acres" of land. Your 
success depends on 
careful planning! 




On 3 
Cassettes 



Random Tic-Tac-Toe 

A challenging twist 
on an old game. 
After each move, 
the Xs and Os are 
shifted to the next 
numbered squares 
on the board. To 
win, you must plan 
several moves 
ahead. Try to 
"outsmart" the 
computer! 
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Draw 

This fascinating 

game allows you 

to "draw" graphic 

designs on TRS-80's 

video monitor, store 

them and recall 

them, if desired. 

Useful and 

entertaining! 
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Checkers 

Here's another updated 

version of an old I 

favorite ! Test your " 

checker- playing | 

skill in a match .^ 

with your TRS-80 1 

computer. ™ 

Exciting fun | 

for everyone! 



Star Pilot 

Pilot a fighter plane 
and shoot down 
enemy aircraft 
before they take 
evasive action. This 
fast-paced game 
allows you to fire at 
a constantly moving 
target. Hours of 
entertainment ! 




Cat. No. 26-1805 



General Instructions 



All the programs in this package are written in BASIC. That mean s 
you can load each of them simply by typing CLOAD IM^IMMtl 

1. Set up the Computer, Video Display and Cassette Recorder as 
described in the User's Manual for LEVEL I. 

2. Pick out the cassette for the game you want to play — 
instructions for each game are contained later in this manual. 

3. Insert the cassette into your recorder. Be sure the tape is set to 
start at the beginning. Put the recorder in the Play mode, and set 
the volume to between 7 and 9. 

4. Now type: 

cload HUH 

The tape will begin to load, and asterisks will flash in the upper 
left of the Display. When the program has been loaded, 
READY 

> 

will be displayed below the last line you typed in. If the message: 
WHAT? 

> 

is displayed instead, start over and try a slightly different volume 
setting. 

5. After l oading th e program, type 

run mmm 

Now the game will start. 

Note: If for some reason you want to interrupt the ga me and st art 
over, simply press the BREAK key and type RUN laMiatl 
again. 



© Copyright 1978 by Radio Shack, A Division of Tandy Corporation 



Star-Pilot 



This game places you in control of an inter-planetary fightercraft. 
You are to destroy enemy space ships as they come in range of 
your on-board rockets. The number of enemy space ships and 
available rockets depends on your experience and confidence as a 
Star-Pilot (plus a slight "chance" factor"). 

CLOAD the program and RUN it. You will be asked two 
questions: 

HOW MANY YEARS HAVE YOU BEEN A STAR PILOT? 

and 

HOW MANY SHIPS CAN YOU DESTROY? 

Type in the number of years and the number of ships. You will then 
be told how many rockets you have, and the screen will instantly 
be transformed into your target-tracking window. 

There are two kinds of enemy space ships. One looks like this: 
<-*-> and the other looks like this: !-*-! 

Wait till an enemy ship is centered in your window over the plus 
( + ) sign. Then press the CLEAR key to fire a rocket. 

If you destroy all enemy ships, you will be congratulated. Perhaps 
on your next mission you can try to destroy even more! 

If you run out of rockets, the game is over. Ask for less enemy 
space ships next time! 

The Computer will always ask if you wish to play again. Type YES 
or NO and press ragmRl 



lamurabi 



You are the exalted ruler of an ancient kingdom. Your objective is 
to build your kingdom from its present population of 100 
poverty-stricken peasants into a wealthy, thriving metropolis. 

Agriculture is the only industry, and as a wise ruler, you will decide 
how many acres to buy and sell at current rates (paying with 
bushels of wheat). Of the acres you own, you must decide how 
many to plant. Last year's harvest must also be distributed. Some 
must go to food for your subjects, some must go to seed for this 
year's planting, and some may be saved for future years. 

There are several obstacles you will encounter. The major one is 
your own ignorance. Since you just inherited the throne, you don't 
know how much food each peasant will need to keep from starving. 
You have no idea how many acres each peasant can plant or even 
how much wheat it takes to plant an acre. 

The Secretary of Commerce would not have the audacity to tell 
you about your mistakes: he will, however, tell you when your 
instructions are impossible to execute. You will have to learn by 
trial and error (or by looking at the program listing) what is best for 
the kingdom. 

To resign from your position, sell all your land. 



Space Taxi 



This game challenges your skill as the pilot of a space taxi on a 
distant planet. Your mission is to maneuver your craft safely over 
treacherous and unpredictable terrain to a landing port in the next 
valley. You and your passengers are protected from high radiation 
by a dome. If you go beyond this dome you will die instantly of 
radiation poisoning. 

You are given 70 units of oxygen and 80 units of fuel. You must 
take off from the surface by typing in a positive fuel burn for 
vertical thrust and an optional fuel burn for horizontal thrust. Each 
maneuver uses .5 seconds' worth of oxygen; you must land with 
enough oxygen remaining to allow the landing port to be 
pressurized. 

Direction and altitude are controlled by burning thrust-jets in 
vertical and horizontal directions. 

Type in a positive vertical burn to move the craft up or slow your 
descent. Type in a negative burn to move down or slow your 
ascent. The acceleration due to gravity for each 5-second burn 
period is approximately -2 units. Negative velocities mean you are 
moving down. 

Horizontal movement is controlled by entering positive or negative 
burns for horizontal thrust. Positive burns move the craft to the 
right and negative burns move the craft to the left . 

You must land in the landing port with a vertical velocity of to -2 
and a horizontal velocity of 0. Hitting any object outside the 
landing port will cause you to crash. If you run out of fuel before 
you have landed safely, you will free-fall and crash. 



Random Tic-Tac-Toe 



Random Tic-Tac-Toe is an exciting and challenging variation of the 
old school-yard pastime, with the same objective of the regular 
game, but requiring the logic and foresight of chess. 

The squares of the Tic-Tac-Toe board are randomly numbered 1 
through 9, and the player and the computer take turns moving. On 
the first turn, it is exactly like the regular game, but on the second 
turn all pieces shift to the next sequential number. 

That is, if the Computer opened the game by placing an O in 
square 5 and you responded by putting an X in square 2, then the 
board would be re-drawn with an O in square 6 and an X in 
square 3. Continuing with this example, let's say the Computer 
next plays to square 8 and you put your mark in square 9, then the 
redrawn board will have O's in squares 7 and 9 and the X's will be 
in squares 4 and 1 (after 9 the sequence returns to 1). The first to 
get three in a row wins. 

When your turn co mes durin g play, type the number of the desired 
s quare and press JajfJIaiTI When the game is over, press 
HHH to play again. 

Sample Game: 
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MOVE THREE 



MOVE FOUR 



Draw 



This is not just a game — it's a means to let your artistic fancy run 
wild! The Draw cassette contains three programs: 

DRAW I Instructions for DRAW 11 and DRAW III 

DRAW II A program that lets you create pictures and designs 
on the Video Display; and then lets you save them 
on a blank cassette tape. 

DRAW III A program that loads your previously created 

designs and pictures from tape and displays them on 
the screen. 



The instructions are contained in the DRAW I program; instead of 
repeating them here, we'll just offer a few hints on using the 
programs: 

I. Here's an easy-to-remember diagram showing how to indicate 
the direction you want to "draw" in: 




2. In addition to the numbers 1-8, you can type in the numbers 
and 9. Typing in the number takes the current direction and 
extends the line (or resets it) by ten units. This saves you from 
having to type the direction number ten times when you want to 
continue in the same direction. 

Typing the number 9 changes the draw mode: from set to re-set, 
or vice-versa. In the re-set mode, the draw position will move in 
the desired direction, "erasing" all points in its path. The mode 
does not revert back to "set" automatically; you must type 
again to change the mode. 

3. Be careful not to draw outside the frame of the picture. 

4. After you have drawn the picture, and you want to save it on 
tape, be sure to insert the blank cassette and place th e recorder 
in the Record mode — before pressing the I3CTI3U1 key to 
start the cassette-save process. 



Checkers 



This is a completely electronic version of checkers — the board and 
pieces are created and moved on the screen, and the Computer is 
your never-tiring opponent. 

CLOAD and RUN the program. The Computer will draw the 
board, and position the playing pieces. 

Note: After the board is drawn, you may find that the 
square-numbers and other messages become faint and hard to read. 
If this happens, adjust the Brightness Control on your Video 
Display until the messages and numbers are easy to read. When the 
game is over, you can set the Brightness back to normal. 

First the Computer will ask if you want to make the first move. 
Type YES or NO and press gg 

Board and Pieces 

The game is played on the 32 dark, numbered squares. The solid 
pieces at the bottom of the "board" are yours, and they move up, 
from higher to lower-numbered squares. 

The striped pieces are the Computer's: they move down from 
lower to higher numbered squares. 



ill j ! ' j I COMPUTER'S 

When a piece is kinged, it becomes twice as "tall" and then can 
move in either direction, up or down the board. 

Your move 

The computer will ask you FROM? in the solid square in the upper 
right of the board. Type in the number of the square you want to 
move away from, and press 



Then the Computer will ask you TO?. Type in the number of the 
square you wish to move to. If your move involves jumping one of 



the Computer's pieces, be sure to type in the number of the square 
you intend to land on. 

Illegal moves: 

• trying to move the Computer's piece 

• specifying an invalid square number 

• trying to dove to an occupied square 

• trying to jump your own piece, or an empty square 

• trying to move backward before you are kinged. 

Double Jumps should be executed one jump at a time. Type in 
FROM? square number and TO? square number so as to complete 
the first jump. The Computer will see that you have another jump, 
and will again ask, FROM? and TO?. Now type in the second part of 
the double-jump. 

Multiple (more than two) jumps are handled the same way; if a 
piece you have just jumped with has another jump to make, you'll 
always have the opportunity to make such a jump. 

The Computer's Move 

The Computer will take from 10 to 15 seconds to figure and 
complete its move. Then it will be your turn again. 

To Jump or Not to Jump . . . 

Formal international checkers play requires that if a jump is 
available, the player must take it. TRS-80 checkers is not so strict 
— you always have the choice whether or not to take a possible 
jump. 



Listings for Programs 



Star-Pilot 



00100 


GOS 


7060 GOS 6800 




01000 


60S 


4000 




01490 


P fl 


10. "I". PR 54. "1" 




01508 


P fl 


213. "I I" 




01505 


P fl 


280. " "; 




01510 


P R 


341, "1 I" 




01515 


P fl 


412, "I I"; 




01520 


P R 


469, "I I - + - I I" 




01525 


P R 


546. "I 1"; 




01530 


P R 


597, "I I", 




01535 


P R 


664, " ------- ". 




01540 


P fl 


,25,,,! ,„, 


P fl 906, "I"; 


02400 


GOS 


4000 




0252O 


P fl 


146, " I 


1"; 


02525 


P R 


213, " ", 




02530 


P R 


274, "I 


I"; 


02540 


P R 


346, "I I"; 




02550 


P fl 


412, " "i 




02560 


P R 


466, " I . .1 - + - . I 


I"; 


02570 


P fl 


548, " "i 




02580 


P R 


602, "I 1"; 




02590 


P fl 


658, "I - 


I"; 


02600 


P R 










02610 


P R. 


786, "I 


1"; 


02620 


P. R. 


848, " ", " ", " I".; 




03400 


GOS. 


4000 




03719 


P R 


79, "I"; :P fl 113, "1"; :P ft 146, 


"i :P fl. 174, ". " 


03726 


P R 


207, " I 


I"; 


03725 


P fl 


274, " I I 


II . 


03736 


P fl 


335, " I 


I"; 


03735 


P fl 


412, " "i 




03740 


P fl 


458, "I I I - + - 


- . I . I 


03745 


P. fl. 


548," -■- "; 




03750 


P fl 


591, "I 


I"; 


63755 


P fl 


658, " I 1 


",• 


03760 


P fl 


719, "I 


I"; 
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02765 P ft 786, " "; 

03770 P ft 847, "I 

03996 G 1900 

04000 IFP (P, Q.>=0G 5600 

04805 P R T, ftti 

04010 IFW<EW=W+1:G 5900 

84100 K=RHD(4>-1 L=RN0<2>-1 

04150 IFH>31K=-K 

04200 IFV>6L=-L 

04250 H=H+R V=V+L W=l 

04320 P ft T, " ".; 

04350 T=64*V+H-3 

04400 P ft T, ft*; 

04450 F I=1TG30+S+E N I 

04500 G 5900 

05000 P H T, ft*, F J=15T07S -1 

05005 F' ft 64*.!*3t+[i»i.l-?i, "t". N .1 

05045 CLS S <P, Q) 

05100 IFT=477G0S 6000 

05110 IFS=0G 8000 

05150 P=F'-1 IFP=0G 3500 

05200 l'=~t' 

05900 RET 

06000 CLS 1=415 F T-1T03 P ft I,"***" 1=1+64 N J 

06065 B*="* *" P H 350, B*, P H tSk Bt- 

06070 B*="* *" P ft 285, B*.; P ft 669, Bt, 

061.00 F I=1T06 

06110 R( I ,>=<RND<3:>-2)*<64+RN[K3 >-2> 

06112 IFft<n=0G 6110 

06115 N I 

06120 fK?)=RND<9>-5 . ft(8>=RNP<9>-5 

06200 F I=1T06 

06205 F K=11T018 

06210 P ft FKK), "*"; 

06215 P H FKIO-60, "*"; 

06220 N. K 

06390 F J=1T08 

06305 C=J+10 

06310 P ft ft<CX. " "; 

06315 P ft f)<C>~60, " "; 



86320 fl(C)=fl(C)+fl<J> 

06320 N J N I 

06335 S=S-1 

06340 P. A 906, "VOU HAVE"; R-l; "ROCKETS LEFT " 

06345 P A 964, "THERE ARE".; S; "ALIEN SHIPS LEFT "; 

06350 F I=1TO400*E 'M I 

06890 W=0 V=RNDa4> H=RND<55:> T=64+V+H-3 R$=" <-*->" 

06842 A<11)=415 R<12>=416:fl(13>=417 A<14>=479 A<15>=481 

06846 n(16)=543 fi<17:)=544 ft<18)=545 

06860 I FS.-'2= I NT < S/2 ) A$= " ! -0- f » 

06870 E=l+INTi'S/5> D=3 CIS F-164 0=44 S (P. Q > 

06990 RET 

07000 CLS-P "IN THIS SIMULATION, VOU WILL BE TRYING TO DESTROY" 

07100 P "A FLEET OF ENEMY SPACE SHIPS BEFORE RUNNING OUT OF" 

07110 p "ROCKETS WHEN A SHIP IS EXACTLY IN THE CENTER OF THE" 

0712O P "TARGET, FIRE AT IT BY PRESSING THE "CLEAR" KEY " 

07176 F P "THE NUMBERS OF SHIPS AND POCKETS DEPEND UPON" 

07180 P "YOUR EXPERIENCE AS A FIGHTER PILOT AND YOUR CONFIDENCE" 

07190 P "IN YOUR OWN ABILITIES ENEMY SHIPS BECOME BETTER AT" 

07200 P "TAKING EVASIVE ACTION AS THE SIMULATION PROGRESSES " 

07210 F IN "HOW MANY YEARS HAVE VOU BEEN A FIGHTER PILOT". P 

07220 R=INKABS(R V) IFR>3OR=30 

07230 IN "HOW MANY SHIPS CRN YOU DESTROY". S 

07240 IFS<8S=8 

07242 IFS>17S=17 

87245 S=I NT < S+RNDC 5 ) -3 ") 

07260 R= I NT ( S* ( 2+35/ C R+10 n . 

07265 P "VOU ARE TO DESTROY"; S; "RL I Eli SHIP'- " 

07270 P "YOU HAVE", R; "ROCKETS AVAILABLE GOOD LUCK ": 

07286 F I=iTOS+R+300 J=RND< I > N I 

07300 RET 

08060 CLS P "YOU HAVE DESTROYED THE LAST ENEMY SHIP 1 " 

88010 P "CONGRATULATIONS'" 

08015 Y=l N=2 

08020 IN "DO VOU WANT TO RUN ANOTHER SIMULATION". P 

08030 IFRONG 100 

08040 P "OK COME BACK ANY TIME " 

08050 E 

08500 CLS P "YOU'RE OUT OF POCKETS AND THERE APE S1IIL " S 

08510 P "SHIPS LEFT VOU NEED MOPE PRACTICE. " G 8015 
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Hamurabl 



86030 REM COPYRIGHT BY CREATIVE COMPUTING 1978 

00048 REM * WHAT THE INSTRUCTIONS DON'T TELL YOU (ON PURPOSE) * 

60058 REM * IS THAT. * 

00068 REM * 1 YOU BUY OR SELL LAND AT ITS CURRENT * 

00070 REM * VALUE AS LISTED * 

00030 REM * 2 EACH PERSON NEEDS 20 BUSHELS FOR FOOD * 

00090 REM * 3 EACH PERSON CAN PLANT A MAXIMUM OF * 

00100 REM * 10 ACRES * 

00110 REM * 4 EACH ACRE COSTS 5 BUSHELS TO PLANT * 

00120 REM * THESE ARE THINGS YOU SHOULD DISCOVER FOR YOURSELF * 

00130 REM * AS YOU PLAY HAMURABI NOW AREN'T YOU ASHAMED FOR * 

00140 REM * READING THIS?!? * 

00150 REM * + + #**#*****#** + + ** + ***#**# 

00300 CLS:P P .P "HAMURABI -" 

00316 P. "WHERE YOU GOVERN THE ANCIENT KINGDOM OF SUMERIA " 

00320 P. "THE OBJECT IS TO KEEP THE KINGDOM GROWING " 

00330 P .P "<IF YOU WANT TO QUIT, SELL ALL YOUR LAND)" 

00340 P. :P :P .1 "PRESS ENTER TO BEGIN YOUR REIGN"; A$ 

00460 A=100 . B=5 . C=0 : D=2800 . E=200 . F=3 . G=3000 . H=1600 : J=l . L=l 

01010 CLS:P=0.P "HAMURABI, I BEG TO REPORT THAT IN YEAR";L;"." 

01020 IFC=1T. 1035 

01030 P C; "PEOPLE STARVED, AND"; G. 1040 

01035 P " 1 PERSON STARVED, AND"; 

01040 IFB=1THEN1048 

01045 P B; "PEOPLE CAME TO THE CITY. ":G 1058 

01048 P. " 1 PERSON CAME TO THE CITY " 

01050 IFJ>0T 1100 

01060 fi=A-INT<A/2):P " THE PLAGUE KILLED HALF THE PEOPLE " 

01100 P " THE POPULATION IS NOW"; A;" " 

01120 P. " WE HARVESTED"; G; "BUSHELS AT"; F; "BUSHELS PER ACRE. " 
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01130 P. " RATS DESTROYED"; E; "BUSHELS, LEAVING"; D; "BUSHELS IN STORAGE 

01150 P. " THE CITY OWNS";H; "ACRES OF LAND " 

01170 K=16+RHD<6):P " LAND IS WORTH"; K; "BUSHELS PER ACRE " 

01200 P AT51S, "HAMURABI 

01300 P. AT576, ""; .0=576 

01310 I. " BUY HOW MANY ACRES"; I : I = IHT<ABS(D) . IFI=0T 1500 



01366 J=I*K:IFK=DT 1400 

01380 GOS 9008 G 1310 

01400 D=D-J-H=H+I 

01500 P AT576. " * VOU ARE BUYING"; I: "ACRES 

C1505 IFD-UT 1658 

01510 p AT640. " " 

01520 F AT704, " " 

01530 Q=640 P ATQ, " " . 

01540 I " SELL HOW MANV ACRES"; I I = I NT < FlBS ■: I > > IFI=0T 1570 

01550 IFKHT 15?y 

01566 IFI=HT 9*99 

01565 GOS 30OO G 1540 

01570 P=l p AT640 " + VOU APE SELLING" . I ; "ACRES 

015S0 G 1600 

01600 H=H-I D=D+K+! 

O1650 Q=F+64+640 

01670 P ATQ. " " 

0168O F ATQ+64 " " 

01690 P ATQ "". 

01700 I " HOW MflNV BUSHELS SHALL HE DISTRIBUTE AS FOOD". I 

01710 I = INT''ABS<:I;':. 

01740 IFIODT 1770 

01750 GOS 9000 G 1700 

01770 D=D- 1 C=H- 1 NT >' 1 720 :■ ■ B=0 I FO=0T 1850 

01810 B=-C/2 C=0 

01850 Q=P+64+704 

01860 P ATQ-64, " * VOU APE DISTRIBUTING";!; "BUSHELS 

'01870 P ATQ, " " 

01880 P ATQ+64- " 

01890 P ATQ. ""■ 

01900 I " HON MflNV ACRES SHALL HE PLANT". I I = I NT •: ABS; V- "< 

01910 IFDHT I960 

01940 J=INTiI/2') IFK=DT 1980 

01960 GOS 9000 G 1900 

01980 IFD10+AT I960 

01985 CLS 

01990 D=D-J F=PNDi5; G=F*I E=INT>: <D+G>* @?*RND<0V> D=D-E+G J=PNDai»-l 

02060 B= I NT <■ B+ >' 5-F ) *D/60O+1 ':> I FBO50T 2100 

O2088 B=58 

02100 IFB<OT B=0 13 



02110 fl=H+B-C L=L+1 G 1010 

09000 P ATQ+128- " 

09001 P " 

09010 P ATQ- " " 

O9620 P "— > HflMURfiBI ! THINK AGAIN — VOU ONLV HAVE 

09820 P "--:> ".A, "FEOPLE- ",H, "ACRES- AND", D, "BUSHELS IN STOREHOUSES ' 

09040 RET 

09999 CLS P P F F F "VOU HAVE SOLD ALL VOUR LAND " 

10000 P P "THE GAME IS OVER- AND VOU CAN GO BAD- TO BEING VOUPSELF " 

10001 P P "BVE" F T=1J09999 N T CLS END 
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Space Taxi 



8800.1 C L "£ F=y0 

06882 11=1 F 2=OT04? i '2.IJ' 1 U 2 F H 24 " RHDIRTION DOME " 

86003 F Z=S0T012? ; ' Z. U ' N 2 

06611 T=70 V=0 H=0 L=22 0=30 1=0 1=22 ('=22 G0£ 38 G 126 

66036 S 'I.J 1 

66646 R=RN['":3"' ONRG 56- 76. SO 

60056 IFX=1G 46 

68066 1 = 1+1 ''=1 V=6 G 160 

80676 1 = 1+1 J=.I+1 K=0 V=8 G 100 

808S8 IFV=1G 48 

86696 J=J+1 V=l }<=8 

00166 IFJ=C'RET 

80116 IF1=127PET 

06111 G 38 

06120 F Z=I+1T029 S <Z, JVN Z l:=RND(lli+4 

00138 J=21 1=26 GOS 140 G 230 

00146 S <1, J) 

00156 R=RND<3> ONRG 166,180,196 

00160 IFX=1G 150 

06170 1 = 1+1 .X=1V=0G 218 

08180 I=I+1-J=J-1-X=0:Y=0-G 216 

00190 IFV=1G. 150 

00286 J=J-1V=1 X=0 

00210 IFJ=KRET 

06220 IFI=127RET 

00221 G 149 

00230 K=:<2;G0S 30fi=I+5B=31 

00240 F Z=I+1TOI+20IFZ=127G 310 

00250 S. (2, J):N. Z 

00260 J=J-1- 1 = 1+21 K.=RND<12)+3 GOS 140 

00276 IFI=127G. 310 

00280 K=31:G0S 30- IFI=127G. 310 

00290 F. Z=I+1T0I+17: IFZ=127G. 310 

00300 S. <Z, J):N. Z 

00216 S. <C, D):S <C-1, D+D-S. <C+1, D+1):S <R-1,B)-S <fi-2, B> 

00311 S <fl-2, B-l) S <fl+7,B> 

08320 S. <fi+8, B):S <fl+8, 6-1) GOS 321 :G 350 

00321 P fi 708; "HORZ SPEED = ";H 15 

00330 P. fl 772; "OXV/SEC = "; T 



00346 IFVO0P ft. 739; "VERT SPEED = "; fiBS(V) 
00341 IFV>0P ft 739; "VERT SPEED = "; 8-V 
60342 P ft 803; "FUEL = ";F.RET 
68350 P ft 832; "HORIZ - r+ THRUST"; I X 
00355 IFftBS(X»FGOS 1000. G 350 

00360 P ft 896; "VERT +[ \- THRUST"; 1 V 

00361 X= I NT ( X ) V= I NT ( V ) 
00365 IFftBS(Y)>FGOS 1000. G 368 

0036? IFfiBS<X)+flBS(Y)>FGOS 1000 GDTO350 

00370 H=H+X . V=V- V . H= I NT ( H ) V= I NT ( V > . M=0 . N=0 

00371 F=F- ( ftBS ( X ) +RBS ( V > .' 

00388 R ((,[!! R (C-l, D+l) R (C+l, D+l) 

08398 IFI1=HG 558 

08480 IFN=VG 500 

88410 IFH<8C=L-1 M=M-1 G 438 

80428 i>C+l M=M+1 

884:0 1FV8D=D-1 N=N-1 G 441 

08448 D-D+l N=N+1 

08441 GOS 458 S (CD' S < C-l -D+l' S 'C + 1 D+l > G 388 

88450 IF(C=1> + m:=126' + 'D=0 'CLS G 788 

88455 IF(D=30 ' + ' ■ C 'ft ' + (C H+7 ■ ' ♦ ■■ V\=2>f H=0 'T V=0 GOS 1100 G 320 

00460 IF'P (C-2,D+i'=l> + (P '.'L+2D+1 ' = 1'G 788 

00470 IF(.D=30'*(V<:>2)V=0 G 800 

00480 IF(D=31)+'D=30'G 788 

80490 RET 

00580 S (CD) S (C-l, D+l' S 'C + l, D+l' IFtl=HG CW 

00510 R <C,t" R (C-l, D+l ' R 'C+l, D+l' 

88520 IFH<0C=C-1 M=M-1 G 548 

00530 C=C+1 M=M+1 

00540 GOS 450 S (CD- 1 S i.C-1- D+l..' S 'C+l, D+l) G 508 

08550 S (CD) S 'C-l, D+l' S '.C+l, D+l,' IFN=VG 600 

00560 R <C, D) R <.C-1, D+l> R (C+l, D+l' 

00578 IFV<0D=D~1 N=N-1 G 598 

00588 D=D+1 N=N+1 

08590 GOS 450. S (CD) S (C-l, D+l) S (C+l, D+l) G 550 

00600 T=T-5.IFT=0P ft 192;"GftSF"! VOUR OXVGEN IS GONE" G 728 

00610 IFDO30V=V+2 

00621 P ft 784 

00630 F 2=1T03 P NZ 

16 00648 IFF>0T 685 

08688 IFF<=0P ft 838; "=== OUT OF FUEL ===" V=V+2 



00681 P AT973; "** VOU ARE NOW FREE FALLING **"; :FORX=1TO1000:N X 

00685 G0SUB321 

m6S& IFF<=0G 370 

00691 G. 350 

00700 CIS P ft. 474; "CRASH " F 2=1TO1000 N 2 

00710 P A 523; "BOOM!! VOU JUST HIT THE SURFACE OF 2ARB0R" 

80711 P "YOUR FINAL VERTICAL VELOCITY' WAS"; 

00712 IFV<=0P V 

00713 IFV>0P 0-V 

00714 P "YOUR HORIZONTAL VELOCITY WAS";H 

00720 I "> PLAY AGAIN (Y/N) "; 2' IF2=VF=80 CLS G 2 

00738 IFZONG 720 

60731 E 

06780 P "VOU HAVE LEFT THE SAFETY OF THE PADITION DOME" 

0079O P "AND HAVE DIED OF PADITION POISONING" G 720 

00800 S <C, [:o S CC-1, D+l) S <X+1, D+l.' IFHO0G 700 

00810 F Z=AT0A+5 IFtC-l=2') + ':C+l=2)G 860 

00811 P A 704 

00820 N 2 P "YOU HAVE LANDED" 

00850 'F M=1TO2000 N M G 490 

00860 RESTORE 

00880 DATA-1- -2, 7. -2- 0, -2. 6. -3.1. -4. 5- -4- 2. -5, 3. -5.4.-5 

00890 F 2=1T09 READU.W S <A+U, B+W> 

00900 T=T- 8 IFK=OG 950 

00901 V=0 GOS 321 
00910 F E=1TO250 N E N 2 

00920 CLS P "CONGRATULATIONS" YOU HAVE MADE IT TO THE BASE" G 720 

0095O P "UNFORTUNATLV YOUP OXYGEN SUPPLY PAN OUT BEFORE" 

OO960 P "THE LANDING PORT COULD BE PRESSURIZED VOU" 

00970 P "SUFFOCATED " G 720 

8O980 F'ET 

01000 P A 965."+** VOU DON T HAVE THAT MUCH FUEL +++". 

01010 F K=1T 1U00 N ;■, 

01020 P A 965. " " RET 

01100 P A 9f,6 "*+ VOU HA'/'E LANC'EC' IN IHF WRONG PLAU" "" 

OH05 ; u:.[i. s ■ c -l. C'+i ■ s • c+i. f+i ■ 

OHIO F X=1TO15O0 N :>; 

01130 P A 960 " ". PET 
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Random Tic-Tac-Toe 
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00001 CLS.P RT463, "RRDIO SHACK'S RANDOM TIC TfiC TOE", F X=1TO1500 N X 

00002 CLS.P AT471, "ENTER FIRST NAME ", IN EM J=fi l_l=0 V=6 W=0 

00003 CLS.F Q=1TO20 fl<Q)=0 N Q P AT472, "I M RANDOMIZING"; P RT6, ""; 
90004 Q=R (SO F X=11T019 IFROO=0R(X')=iJ G 4 

00005 IFX=19T 8 

00006 IFFKX)=QT 4 

00007 M X 

00008 gos :<:<:<:< gos 10 g 95 

00010 cls.x=41:t=82.f v=3t043.s (x-l, vo s (x, so s (t, v) s ct+1, v> n v 

00020 V=15.Z=31.F X=12T0113.S (X, V).S (X, 2).N X.P RT272, H(ll>; 

60030 F RT293, A(12>; ,P RT311, A(13>,' P RT592, A(14>; . P AT613, RC15':>; 

00040 P AT631, R(16).i P AT912, fl(17>; P RT933, R(18>; P RT951, R(19'>; 

00050 P AT448, "WON"; .P AT512, U; .P AT50S, "LOST".; .P RT572, V.; 

00060 P RT989, "TIED ".; W; P ATO, ""; RET 

80895 IFJ=1J=0 G 7000 

00097 J=l 

00098 P T (22), B*; " SELECT SQUARE "; P ATO, "".; IN Q.P AT0, ""; 

00101 IF('Q>0)*(Q<10)T 103 

00102 P "INVALID PLRV"; F T=1TO1000:N T P RTO, " " P RTO, "".; .6 98 

00103 IFA(GX>0T 102 

00104 A(Q>=1 GOS 555 GOS 10 GOS 3333 11=1 S=4 . GOS 666 T=1.G 8888 
08110 S (X-4, V-4> S (X+4, V-4> S (X-3, V-3> S (X+3, V-3> S (X-2, V-20 

00120 S (X+2, V~2) S (X-l, V-l> S (X+l, V-l) S (X, V> S (X-l, V+l) S (X+1,V+1> 
00130 S (X-2, V+20 S (X+2, S'+20 S (X-3., V+3!> S (X+3, V+3) S (X-4, V+4> 
00140 S <X+4, V+4>.G 680 

00199 A(R>=4.P "".P AT0, "".; 

00200 F T=-4T04 S (X+T, V-4.) N T.F T=-3T03 S (X-4, V+T> S (X+4, V+T) N T 
00210 F T=-4T04.S (X+T, V+4,> N T.G 698 

00555 F R=9T01S -1 . A(R+1)=A(R> N R A('1>=A(10:> . RET 

00666 F R=1T09.IF(A(RO=M)+(R(R)=S)Q=R G 1000 

80678 IFA(R)=MT 110 

00680 IFA(R)=ST 199 

00690 N R.RET 

01000 K=20.L=7.F T=1T09 IFQ=A(T+10>X=K.V=L-G 1050 

01010 K=K+42.IFK>104K=20 G 1030 

01020 G 1040 

81030 L=L+16 

01040 N T 



01056 G 670 

03333 R=fl<H<llJ ) B=FKfi<12>> C=Ri'ft<13>> D=fi<ft<14>.> E=fl(H<15V> F=fl':fi<16'; 

63334 G=fKfi<'i7>> H=f=l < fi '.' IS > ;■ • I=fKHa9>> RET 

04060 Q=<fl(M.))-T IFG=-2Q=7 

04001 IFQ=-1Q=8 

04002 IFQ=0Q=9 

04003 IFR('Q)=0H(Q)=9 G 8500 

04004 IFM=17N=i:< 

04005 IFM=19I1=17 

04006 IFM=15M=19 

04007 G 4000 

07000 P T (25'. "I M IHJWIMG". P HT0, "". V=U Z=V X=S 

07001 lFfl'20 '=@ft'20 ''=1 M=15 1-2 G 4000 
07010 T=H+B+L IFT=XT 8000 

07779 T=H+D+G 1FT=XT 8U2G 

07780 T=H+E+1 IFT=XT 8060 

07781 T=E:+E+H IFT=XT 8090 

07782 T=C+E+G IFT=XT 8120 

07783 T=C+F + I IFT=XT 8150 

07784 T=D+E+F IFT=XT 8180 

07785 T=G+H+I IFT=XT 8210 

07786 IFV=0V=1 2=1 G 7800 

07787 IFV=1Y=2 X=2 G 7010 

07788 IFV=2V=2 X=8 2=2 G 7800 

07789 IFV=3V=4 X=2 G 7O10 

07790 IFV=4V=5 X=8 2=3 G 7800 

07791 IFV=5V=6 X=2 G 7010 

07792 IFV=6V=7 X=8Z=4 G 7800 

07793 IFV=7V=8 X=2 ■ G 7010 

07799 GOS 8450 M=19 ■ T=2 G 4000 

07800 GOS 555 GOS 3333 G 7010 
08080 IFft=0T 8490 

08010 IFB=0T 8491 
08020 G 8492 
08030 IFfi=0T 8490 
08040 IFD=0T 8493 
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08058 G. 8496 

08060 IFfi=0T 8490 

88870 IFE=0T 8494 

08080 G 8498 

08090 IFB=0T 8491 

08100 IFE=0T 8494 

08118 G 849? 

08120 IFC=0T 8492 

88130 IFE=0T 8494 

88140 G 8496 

08150 IFC=0T 8492 

08160 IFF=8T 8495 

08176 G 8498 

08186 IFD=0T 84?: 

08190 IFE=0T 8494 

08206 G 8495 

88210 IFG=UT 8496 

0822O IFH=6T 8497 

08230 G 8498 

084O0 H'-fKQi '=9 GOS 8458 G 8500 

88450 S=0 T=9-Z 

08451 GOS 555 3=3+1 IFSfTT 8451 

08452 PET 

88490 0=11 G 840ti 

08491 0=12 i) 8400 

08492 0=11 G 8400 
08492 0-14 f, 8400 

08494 0=15 G 8400 

08495 0=16 G 8400 
0849i: i ■ =- 1 - " 1 1 84HI1 
0849? 0=18 G 840(1 
08498 0=19 b 84mm 

08500 M=5 S=9 GOS 666 GOS 1-3-3 3. 

08888 .'=12 Z=0 

08900 IF(R+B+C=X:' + (H+D+G=X '-nfl+E+l=X ' + ■ B+E+H=;i < + > C+E+f)=:-. <T 2=1 

68910 if!i:+f+i=;<;+'.p+e+f=:o+<:g+h+i=;<; 'Z=i 
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68911 X=3 

08912 IF<R+e+C=XX+(H+D+G=X) + Cfl+E+I=X) + (.B+E+H=X:) + (C+E+G=:OT Z=Z+2 

08913 IFcC+F+I=X» + a'+E+F=X' + fG+H+I=X)2=2+2 
88914 IF2=1T 8930 

08915 IF<<Z=2>+(2=4)>T 8931 

08916 IFCZ=3) + (2=5:>T 10S20 
08920 G 9999 

08930 P RT984, Ei$; " VOU LOSE"; P RIO,""; V=V+1 IN Fit- G 3 

08931 p RT984, B$; " VOU WIN"; P fiTO, ""; U=U+1 IN H* G 2 

09000 1FT=1T 7O00 

09001 G 98 

09999 F Q=1T09 IF<fl(Q)=0)Q=9G 9000 

10010 N Q 

10020 P RT984, "TIE GRME ";B$; P RT0, ""; IN M H=U+1 G 3 

22222 END 
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Draw 



DRAW I 

08061 REM 

06092 REM 

00003 REM AUTHOR CLOflD STAFF '- RF < 

00094 REM 

08005 CLS P " *** DRAW I PROGRAM *+*" P 

06010 P " THESE ARE THE INSTRUCTIONS TO THE GRAPHICS PROGRAM 

00020 P 

80038 P "THE NEXT PROGRAM ON THIS TAPE '.'DRAW 1 1 :■ ALLOWS YOU TO 

00040 P "ACTUALLY DRAW ON THE SCREEN WITHOUT PROGRAMMING IN EACH POINT 

00056 P "AFTER VOU HAVE CREATED YOUR MASTERPIECE, THE PROGRAM WILL READ 

00060 P "TO VOU THE X AND V FOR EACH POINT YOU PLOTTED EVEN MORE THAN 

06070 P "THIS; THE PROGRAM WILL ALLOW VOU TO SAVE VOUR ARTWORK ON A 

00080 P "DATA TAPE THE THIRD PROGRAM ON THIS TAPE, DRAW III- WILL TAKE 

00090 P "VOUR ARTWORK FROM THE DATA TAPE AND PLOT IT ONCE AGAIN 

00100 P P P 

60110 GOS 800 

00115 CLS 

00120 P "HERE IS HOW IT WORKS 

00130 P 

00140 P "WHEN VOU RUN THE PROGRAM, THE FIRST THING VOU WILL SEE IS " 

00150 P 

00160 P '"STAND-BV FOR THE COMPUTER TO SAV W-H-E-R-E ' '" '" 

00170 P 

00180 P "THIS IS A STALL TACTIC 

00185 P "THE COMPUTER IS FILLING ALL "A ARRAY POSITIONS WITH ZERO 

00206 P "NEXT VOU WILL SEE 

00210 P 

08220 P '"VOU CAN 'SET' #### TIMES WHERE-"" 
60230 P 

00240 P "THE NUMBER AFTER 'SET' IS BASED ON THE MEMORY FOR YOUR COMPUTER 
00242 GOS 860 
00244 CLS 

00250 P "SO 16K'ERS, THIS PROGRAM CAN USE ALL THE ROOM VOU HAVE 
00260 P "'WHERE'', IS ASKING WHERE VOU WOULD LIKE TO START WE HAVE 
00276 P "FOUND THAT 22,22 IS A GOOD PLACE TO START INPUT AT THIS POINT 
00280 P "MUST BE #, # WITH X COMING FIRST AFTER ENTERING THIS VOU WILL 
22 00296 P "SEE " 



803:06 P 

W0310 P " X= 22 V= 22 DRTN== U ttStttt RESERVE SET ■' " 

00320 P 

00330 F' "THE X AND V ALWAYS SHOW THE POSITION OF THE LAST SET OR RESET 

00340 P "DRTN, MEANS THE CURRENT DIRECTION AS DESCRIBED LATER EACH 

08360 p "TIME VOU SET. THE PESEVE IS REC'I. K EL BV ONE 

00370 P "EACH TINE VOU RESET RESERVE IS RAISED BV ONE SET REFERS TO 

O0372 P 

00374 GOS 800 

00376 CLS 

0038O P "WHETHER VOU WILL BE SETTING OR RESETTING ON THE NEXT MOVE 

00400 P "THE QUESTION MARK IS ASKING WHICH DIRECTION VOUR NEXT MOVE WILL 

00410 P "BE VOU WILL NOTICE THAT THIS LINE OF DATA TAKES THE TOP LINE 

00420 P "OF THE SCREEN NO GRAPHICS CAN BE DRAWN HERE 

00430 P 

00432 GOS 800 

00434 CLS 

80440 P "THIS IS THE CODE FOR DIRECTION BEST WRITE IT DOWN' 

00450 P "1 UP AND RIGHT 

00460 P "2 RIGHT 

60470 P "3 DOWN AND RIGHT 

60480 P. "4 DOWN 

00490 P "5 DOWN AND LEFT 

08500 P "6 LEFT 

00510 P "7 UP AND LEFT 

60520 P "8 UP 

80530 P "9 CHANGES SET TO RESET OR VICE VERSA 

00540 P "0 TAKES THE LAST DIRECTION a-8) AND REPEATS IT TEN TIMES 

00550 P "100 SAVES THE ARTWORK DON'T DO THIS UNTIL 

00551 P " YOU'RE ALL FINISHED" 

00553 P 

00554 GOS 800 
08556 CLS 

00560 P "WHEN VOU HAVE COMPLETED VOUR ARTWORK ENTER 100 

00570 P "THE COMPUTER WILL THEN SAV 

00580 P 

80590 P "THE COMPUTER IS NOW SAVING VOUR ARTWORK' IT TAKES A WHILE "' 

00600 P 

00610 p "AFTER ABOUT 2 MINUTES THE COMPUTER WILL BEGIN SHOWING VOU LINES 
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00628 P "OF DATA IT WILL LOOK LIKE; 2222 2322 2422 2522 ETC 

00630 P. "THE LAST TWO NO'S ARE ALWAYS THE V POINT THE LEADING NO'S 

00640 P "ARE THE X POINT X GOES TO 127; V GOES 3 TO 47 

00650 P "AFTER YOU STEP THROUGH THE POINTS THE COMPUTER WILL SHOW YOU 

W660 P "THE MEMORY USED.. BOTH IN V. AND AMOUNT THEN IT WILL SAY, IF 

00676 P "YOU WISH TO SAVE THE ARTWORK, PREPARE A CASSETTE TO RECEIVE 

00680 P "THE DATA AND PRESS ENTER YOU MAY SAVE MORE THAN ONCE 

00690 P "(PRESS BREAK TO STOP THE PROGRAM AT THIS POINT > 

00700 GOS 8O0 

80710 CIS 

08720 P "AS WAS STATED, THE THIRD PROGRAM ON THIS TAPE, DRAW III, WILL 

00730 P "TAKE A DATA TAPE AND TURN IT BACK INTO YOUR ARTWORK 

00740 P 

00750 P "WE HAVE HAD LOTS OF FUN WITH THIS PROGRAM HOPE YOU FIND 

00760 P "IT FUN ALSO 

00780 END 

00860 IN "PRESS ENTER TO TURN THE PAGE "A* RET 

DRAW II 

00003 REM BYTES LEFT 14006/1718 

00830 CLS 

00040 P. .P. .P. .P. .P .P :P 

00050 P "STAND-BY FOR THE COMPUTER TO SAY W-H-E-R-E !!!!!!" 

08070 A=0;K=INT<M /4-1) 

00080 F I=0TCK'M /4-l>.A<I>=0.N I 

00090 R=l 

00110 CLS 

00120 P AT0, "YOU CAN 'SET'"; K; "TIMES "i . IN " WHERE ".; X, V 

00130 S. <x, y:> 

00135 P RT0, "X="; X; " V="; V; " DRTN=";A;" "; K; "RESERVE "; 

80136 IFSO0P "SET "; IN B 

08137 IFS=0P "RESET "; IN B 

00140 IFB=100G 600 

00141 IFB=9G0S 500 

00142 IFS=OR (X, V) 

00143 IFB>0G 148 
60144 F I=1TO10 
00146 G 150 
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00148 fl=B 

60156 IFfi=lX=X+l V=V-1 

00160 IFR=2X=X+1 

00170 IFR=3X=X+1V=V+1 

08180 IFft=4V=V+l 

00196 IFfi=5X=X-l V=V+1 

00200 IFFi=6X=X-l 

00210 IFR=7X=X-1 V=V-1 

00220 IFR=8V=V-1 

00222 X=RBSOO V=RBS«V> 

06223 IF':'S=0:'*(p •:;«.'. V "' :>K=K+1 

00224 IFSO0K=K-1 IFF <X, V>K=K+1 

06225 S C<. V' 

00230 IFS=0R (X. V> 

00232 IFEO0G 24m 

0023b N I 

00240 IFS=8S i y. V ■ 

00256 G 115 

0O500 P=P+1 

06510 S=F.-2-INT' d. 2' 

00520 IFS- 0^=t'-l 

00525 IFS=0t-'=l; + l 

0O53O RET 

60600 REM LOGGING 

00602 P RT0, "THE CMPTR IS NOW SWING VOIJR RRT WORK 1 IT TRKES H WHILE "; 

00605 K=0 

0061O F J=3T047 

00620 F I=0T012? 

00630 IFF' U. J'=lRifc > = <I*100+J) K'=K +1 

00640 N I 

00650 hi J 

00690 K'=0 

00691 M=H<0 '/100-INT' fl( J/'100 < 
00695 CLS 

00699 P "THIS IS VOUR FIRST LINE OF X DRTfi " 

00700 REN LOOKING 

00710 F I=0TO10000 

00711 IFK>9K=1 

00713 L=i'flc I v'100-INTCR> I V1@0>)-M 
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00716 IFL> 601K=1:P IN "PRESS ENTER FOR THE NEXT X LINE OF DATA ";R$ 

0072O IFRO»lP RU>, 

08725 M=fi< I V108-INT<fKI >/100> 

08730 K=K+1 

00731 IFK=9P 

00732 IFfKDOOG 760 

00733 P P "VOU USED M NT (I /M +400;; '"/. OF THE ROOM IN THE MEMORY " 
08734 P "OUT OF R POSSIBLE"; INT(M /4-1); "VOU USED"; 1+1; " " 

00735 P .P "IF VOU WISH TO SAVE VOUR ART WORK, PREPARE R CASSETTE TO 

00740 P "RECORD DRTR EITHER PRESS 'BREAK' TO STOP, OR 

08745 IN "WHEN DATA TAPE IS READV, PRESS ENTER "; fl* 

00750 L= I NT (1/10) +2 

00755 G 900 

00760 N I 

00800 P " SOMETHING WENT WRONG I IS NOW = TO 16060. " 

60801 STOP 

00960 F K=0TO1000STEF"10 

00904 L=L-1 

00905 P L; 

00910 A=A<K).B=A(K+1> C=fl<K+2.:'.D=R<K+3) E=Fk'K+4) 

00920 F=fKK+5> G=fl<K+6> . H=A<K+7) 0=R(K+8> . J=A«.K+9; 

60946 P «R; ", ", B, ", "; C; ", "; D, ", "; E; ", ", F; ", ", G; ", ", H; ", "; 0, ", "; J 

00945 IFT=0T 968 

00950 N K 

00960 P P "THE SAVING IS COMPLETE " 

00970 G 733 

DRAW III 

00603 REM DRAW III PROGRAM 

00004 K=0 

00005 CLS 

00006 P TAB (IS:*; "*** DRAW III ***" P 

00007 F "REDRAWS GRAPHICS DATA TAPES 

00008 P "PRESS 'BREAK' TO STOP AFTER PICTURE IS DRAWN " P 

00010 IN "WHEN VOU HRVE THE CASSETTE READV TO LORD PRESS ENTER ";R$ 

00020 F I=OTO10000STEP10 

00025 K=K+1 P K; 

00030 IN #fl, B, C, D, E, F, G, H, L, J 

00040 H(I)=A A(I+1>=B Aa+2';=C A< I+3)=D A(I+4>=E 

26 mm2 A(I+5>=F fKI+6>=G A<I+7>=H A<I+8':>=L A(I+9)=J 



06645 IFJ=6G 166 

00650 N I 
06100 CLS 
00110 F I=0TO10000 

00120 X=INT(FKI),-100) 

00120 V=RCI '-INT'-'FK I >/100"'*100 

00148 IFfli I >=06 260 

00150 S *,". V) 

00160 N I 

00200 G 200 
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Checkers 



00100 CLS GOS 3600 - FORU=0TO1 GOS 2000 N U GOS 2500 

00230 F0RM=1T064 . GOS 3500 N N N=l P RT192, "WfiNT TO GO FIRST"; 

00240 IN fl.P RT192, " "j .GOS 6008.IFfi=lT GOS 5000 

00300 GOS 1000 GOS 5000 G 300 

01000 P RT184, " "; P RT184, "FROM"; IN F.Q=1 

01005 IF(Fa) + (F>64U GOS 6000. G 1000 

01006 P RT184, " TO ", IN T IF(T=0..*(Q=0.:.T RET 
01010 IF<Kl) + a>64)T GOS 6000. G 1006 

01015 F0RX=112T0127 F0RY=6T011 S (X, V):S <X, V+12) H V N X 

01020 GOS 1580 IFQ=8T P RT448, "ILLEGAL", P RT504, " MOVE "; G 1000 

01100 Ra>=fl(F.) H(F^=0. N=F. GOS 3500. N=T:GOS 3500 

01150 IFK9T RCT>=-2.N=T.G0S 3500 

01200 IF(flBS(T-F)=7) + <flBS(T-F:)=S')T RET 

01250 N=(T+FV2.fl<N)=0.GOS 3500 

01255 IFfl<T;=-lT 1270 

01260 F0RB=7T09S 2.G=T+B. IF<G>64> + <G+B>64':>T 1266 

61265 iF(':fl(G)=i.J+<fi<:G:'=2:')*(:fl';'G+B:)=0>T f=t.q=o g 1006 

01266 N B 

01270 F0RB=-3T0-7S 2.G=T+B IF(G<0)+<G+B<0)T 1298 

01280 IF((R(G)=l> + i.R«.G)=2:','*i.H<G+B)=0)T F=T Q=0.G. 1086 

01290 N B.RET 

81500 Q=0.IF(R(F>>-l) + ';fla;'<>0)T RET 

01520 IFR(F)=-2T F0RB=-9T0-7S 2 GOS 1560 N B 

81548 FORB=7T09S 2 GOS 1560 N B.RET 

81560 IF';F-T=BJ + uF-T=2*B)*c:RU.F+T)/2'=lJ + (Ri.':F+T)/2)=2))n 0=1 

01588 RET 

02080 F0RX=UT08S 2 . U=16*X . F0RV=UT08S 2 . 2=6*V 

0201.0 F0RI=WT0W+15.F0RJ=ZT0Z+5 SET CI,, I ) H J N I N V.N X 

02020 RET 

02500 F N=1T064 RER R<N> N N RET 

02511 D 99, 1, 99, 1, 99, 1, 99, 1, 1, 99, 1, 99, 1, 99, 1, 99, 99. 1, 99, 1, 99, 1 

02512 D 99, 1, 0, 99, 8, 99, 8. 99, 8, 99, 99, 8, 99, 8, 99, 8- 99, 8, -1, 99, -1, 99 
82513 [> -1, 99, -1, 99, 99, -1, 99, -1, 99, -1- 99- -1, -1, 997-1, 99, -1, 99, -1, 99 
03888 FOR:«:=0Tu7 F0RV=0T07 P RT'. a28+X) + <8+V> ), fS+X+V+U; N V N X 
83815 P RT62, RET 

83580 V=<INTUN-l;>/8.>+l , > >=N-(V-l)*6.1=(Hi*iS J=(,V-1">*6 
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0251O ONCfii N>+2>G0S 3600, 2700- 2 '800. 2900. 4006 

02520 RET 

03'6OO FOPZ=2T013 S '.I +2. ,1+2' 2 '1+2 ' + •» N 2 PET 

02700 FOP2=2T0i: 2 ■ 1+2- J+4 > N 2 RET 

02800 FOF 2-210.1 3 F '1+2 1 + 2' F '1+2. .1+4' N 2 RET 

83900 GOS 270O F0P2=4T013S 2 F «I+2. J+4> H 2 RET 

040OO GOS 260O F0F2=4TO14S 3 F ■ 1+2. 1+2 ' F tI+2, ,1+4) N 2 RET 

05000 Q=~99 F0RI=1T064 IF'fli I XI ' + ' ft'- I >22>T 5050 

05010 IFH(I'=2T F0RB=-9T0-7S 2 GOS 5100 N B 

05O2O F B=7T09S 2 GOS 5100 N B 

05050 N I IFQ=-99T 9900 

05070 H'T>=fiiF:' ft<F':>=0 N=F GOS 2500 N=T GOS 2500 

05075 IFT256T H(T»=2 N=T GOS 2500 

0508O IF.:flBS(F-T'-:314.' + 'HBS'T-T-'<>18H RET 

05085 N=',T+FV2 H(NJ=0 GOS 2500 IFh<T:'=1T 509O 

05087 F B=~9T0-?S 2 C-T+B IF<C<O' + <C+B<0')T 5689 

05088 IF'FKCi<0»+(H''C+B'=0:'T F=T T=C+B G 5070 

05089 N B 

05090 F0PB=7T09S 2 L=T+B" IF<C>64 ') + < C+B264 >T 5098 

05091 IF(fl(C K0>*' 'FKC+EO=0H F=T T=C+B G 5070 
85098 N B RET 

05100 R=-99 ,1=I+B F=0 IF' .l<0) + ( J>64 >T 5200 

05105 IFH< J:'=OT P=0 L=J 

05108 IF(J+B<0H(J+B>t4>T 5115 

05110 IF<H< J+B:>=0'mH': JKO'T R=5 K=l L=J+B 

05115 IFF--99T 5260 

05116 IFHa>=2T R-P-l G 5126 
05120 IFK9T R-R-2 

05122 IFL247T F-R+2 

05125 IFL>56T R=R+2 

05126 F0Rfl=7T09S 2 GOS 5250 N fl 

0519O C=PND<0) IF(R>Q» + C(R=Q)*(C> 4>>T Q=P"F=I T=L 

05200 RET 

05250 G=I+fi H=I-H IF(G>64)+vG+R>64>T 5270 

85-255 I F < < FK G > =1 ) + < fi < G > =2 > > * < fl < G+FI ) <0 > T R=R-S 

05256 IFFK0T 530O 

05260 IF(.fl<GK8>*i;fi(H)=0)T R=R+4 

05265 IF(fl<H)=-2)*<fl(G)=0)T R=R+4 
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95276 IFCH<0)+<H-fl<0)T. 5308 

85280 IF<(fl(H)=l)+<fl(H)=2))*(fl(H~fl)=-2)T R-R-8 

85300 S=R : G-L+fi . H=L-fi . IFG>64T 5335 

05382 IFH<@T 530? 

05305 IFtfKG><0)*<<FKH)=0) + <I=H>>T R=R-16.G. 530? 

05366 IFCfl(H)=-2,>*(<fi<G>=0)+(I=G>>T R=R-10 

05307 IFG+FD64T 5335 

65310 IF(fl(GX0)*<fl<G+fi)=0)T R=R+5+K+10 

85330 IF<<fi<G:)=l) + (R<G)=2))*':fl(G+Fl)<0)T R=R+4 . S=S+4 

05335 IF(H<0;) + (H-fl<0>T 5350 

05340 IF(<fi<H)=l>+Cfl<H)=2))*(fl<H-fl)=-2)T R-R+4 S=S+4 

05350 IFR>ST R=S 

05500 RET 

06000 F V=6T011.F X=1T0?S 2 F Z=X*16T0X*16+15 S ',2, V).N Z:N X.N V 

06200 F N=9T015S 2 GOS 3500 N N.F X=0TO1 F V=12T014 S (X, Y>.N V.N X.RET 

09900 P MT06, "VOU WIN", G 9900 
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All Radio Shack computer programs are distributed on an "AS IS" basis 
without warranty. 

Radio Shack shall have no liability or responsibility to customer or any 
other person or entity with respect to any liability, loss or damage 
caused or alleged to be caused directly or indirectly by computer equip- 
ment or programs sold by Radio Shack, including but not limited to 
any interruption of service, loss of business or anticipatory profits or 
consequential damages resulting from the use or operation of such com- 
puter programs. 

NOTE: Good data processing procedure dictates that the user test the 
program, run and test sample sets of data, and run the system 
in parallel with the system previously in use for a period of 
time adequate to insure that results of operation of the com- 
puter or program are satisfactory. 

Refer to User's Manual for warranties. Failure to adhere to procedures 
set forth in User's Manual may result in the loss of warranties. 
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